home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Source / Property Editors / DSDESIGN.DFM / DSDESIGN.txt next >
Encoding:
Text File  |  1999-08-11  |  3.1 KB  |  146 lines
  1. object FieldsEditor: TFieldsEditor
  2.   Left = 196
  3.   Top = 113
  4.   Width = 124
  5.   Height = 239
  6.   ActiveControl = FieldListBox
  7.   BorderStyle = bsSizeToolWin
  8.   Caption = 'Form1.Table1'
  9.   Color = clBtnFace
  10.   ParentFont = True
  11.   Icon.Data = {<image000.ico>}
  12.   OldCreateOrder = True
  13.   PopupMenu = LocalMenu
  14.   ShowHint = True
  15.   OnClick = SelectTable
  16.   OnCreate = FormCreate
  17.   OnDestroy = FormDestroy
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Splitter1: TSplitter
  21.     Left = 0
  22.     Top = 172
  23.     Width = 116
  24.     Height = 2
  25.     Cursor = crVSplit
  26.     Align = alBottom
  27.     ResizeStyle = rsUpdate
  28.     Visible = False
  29.   end
  30.   object Panel1: TPanel
  31.     Left = 0
  32.     Top = 0
  33.     Width = 116
  34.     Height = 21
  35.     Align = alTop
  36.     BevelOuter = bvNone
  37.     BorderWidth = 1
  38.     ParentColor = True
  39.     TabOrder = 0
  40.     OnClick = SelectTable
  41.     object DBNavigator: TDBNavigator
  42.       Left = 1
  43.       Top = 1
  44.       Width = 114
  45.       Height = 18
  46.       DataSource = DataSource
  47.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  48.       Align = alTop
  49.       TabOrder = 0
  50.     end
  51.   end
  52.   object FieldListBox: TListBox
  53.     Left = 0
  54.     Top = 21
  55.     Width = 116
  56.     Height = 151
  57.     Hint = 'Fields'
  58.     Align = alClient
  59.     DragMode = dmAutomatic
  60.     ItemHeight = 13
  61.     MultiSelect = True
  62.     TabOrder = 1
  63.     OnClick = AListBoxClick
  64.     OnDragDrop = FieldListBoxDragDrop
  65.     OnDragOver = FieldListBoxDragOver
  66.     OnKeyDown = AListBoxKeyDown
  67.     OnKeyPress = AListBoxKeyPress
  68.     OnStartDrag = FieldListBoxStartDrag
  69.   end
  70.   object AggListBox: TListBox
  71.     Left = 0
  72.     Top = 174
  73.     Width = 116
  74.     Height = 38
  75.     Hint = 'Aggregates'
  76.     Align = alBottom
  77.     ItemHeight = 13
  78.     MultiSelect = True
  79.     TabOrder = 2
  80.     Visible = False
  81.     OnClick = AListBoxClick
  82.     OnKeyDown = AListBoxKeyDown
  83.     OnKeyPress = AListBoxKeyPress
  84.   end
  85.   object DataSource: TDataSource
  86.     Left = 10
  87.     Top = 32
  88.   end
  89.   object LocalMenu: TPopupMenu
  90.     HelpContext = 30130
  91.     OnPopup = LocalMenuPopup
  92.     Left = 42
  93.     Top = 32
  94.     object AddItem: TMenuItem
  95.       Caption = '&Add fields...'
  96.       HelpContext = 30131
  97.       ShortCut = 16449
  98.       OnClick = AddItemClick
  99.     end
  100.     object NewItem: TMenuItem
  101.       Caption = '&New field...'
  102.       HelpContext = 30132
  103.       ShortCut = 16462
  104.       OnClick = NewItemClick
  105.     end
  106.     object Addallfields1: TMenuItem
  107.       Caption = 'Add all &fields'
  108.       ShortCut = 16454
  109.       OnClick = AddAllFields
  110.     end
  111.     object N1: TMenuItem
  112.       Caption = '-'
  113.     end
  114.     object CutItem: TMenuItem
  115.       Caption = 'Cu&t'
  116.       HelpContext = 30133
  117.       ShortCut = 16472
  118.       OnClick = CutItemClick
  119.     end
  120.     object CopyItem: TMenuItem
  121.       Caption = '&Copy'
  122.       HelpContext = 30134
  123.       ShortCut = 16451
  124.       OnClick = CopyItemClick
  125.     end
  126.     object PasteItem: TMenuItem
  127.       Caption = '&Paste'
  128.       HelpContext = 30135
  129.       ShortCut = 16470
  130.       OnClick = PasteItemClick
  131.     end
  132.     object DeleteItem: TMenuItem
  133.       Caption = '&Delete'
  134.       HelpContext = 30136
  135.       ShortCut = 46
  136.       OnClick = DeleteItemClick
  137.     end
  138.     object SelectAllItem: TMenuItem
  139.       Caption = 'Se&lect all'
  140.       HelpContext = 30137
  141.       ShortCut = 16460
  142.       OnClick = SelectAllItemClick
  143.     end
  144.   end
  145. end
  146.